DIFINISI

Faceting adalah sebuah teknik dalam ggplot yang memisahkan plot berdasarkan kategorikal variable tambahan yang sudah kita buat.

Terdapat dua macam fungsi facet, pertama facet_wrap() dan kedua adalah facet_grid(). Pada contoh di bawah adalah penggunaan faceting dengan fungsi facet_wrap()

df3 %>%
  mutate(kelompok = case_when(tahun %in% c(1949:1951) ~ "Tahun 1949-1951",
                              tahun %in% c(1952:1954) ~ "Tahun 1952-1954",
                              tahun %in% c(1955:1957) ~ "Tahun 1955-1957",
                              TRUE ~ "Tahun 1958-1960")) %>% 
  mutate(bln = as.character(factor(bulan, levels=c("Jan", "Feb", "Mar", "Apr", "May", "Jun", 
                                                   "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"),
                                   labels=1:12))) %>% 
  mutate(myd = my(paste0(bln,"-",tahun))) %>% 
  ggplot(aes(x=myd, y=penumpang, group =1))+
  geom_point(aes(color = tahun), size = 3)+
  geom_smooth(se=F)+
  scale_x_date(date_labels = "%Y",
               breaks = seq(ymd("1949-07-01"), ymd("1960-07-01"), by = "1 year"),
               name = "Tahun")+
  coord_polar("x")+
  guides(color = "none")+
  facet_wrap(~kelompok, nrow = 2, scale = "free")

CONTOH

DIFINISI

Coordinate system dengan posisi pada aesthetic akan sangat terkait dimana keduanya akan membentuk sebuah plot. Terdapat dua type coordinate system :

Linear coordinate system yang terdiri atas

• coord_cartesian(): Settingan default Cartesian coordinate system
• coord_flip(): Cartesian coordinate system dengan sumbu x and y saling menggantikan.
• coord_fixed(): Cartesian coordinate system dengan aspect ratio yang fixed.
  

Non linear coordinate system yang dapat merubah bentuk dari plot itu sendiri. Terdiri atas:

• coord_map()/coord_quickmap()/coord_sf(): Dipakai pada pemetaan peta.
• coord_polar(): Polar coordinates.
• coord_trans()
  

Berikut adalah contoh penggunaan coordinate system dengan coord_polar()

df3 %>% 
  mutate(bln = as.character(factor(bulan, 
  levels=c("Jan", "Feb", "Mar", "Apr", "May", "Jun", 
  "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"),
  labels=1:12))) %>% 
  mutate(myd = my(paste0(bln,"-",tahun))) %>% 
  ggplot(aes(x=myd, y=penumpang, group =1))+
  geom_point(aes(color = tahun), size = 3)+
  geom_smooth(se=F)+
  scale_x_date(date_labels = "%Y",
               breaks = seq(ymd("1949-07-01"), ymd("1960-07-01"), by = "1 year"),
               name = "Tahun")+
  coord_polar("x")+
  guides(color = "none")

DIFINISI

Perlu diketahui bahwa setiap aestetic pada ggplot terasosiasi dengan scale, Seperti pada contoh di bawah, dimana aestetic yang disertakan adalah x, y, dan color

df3 %>% 
  ggplot(aes(x=bulan, y=penumpang))+
  geom_point(aes(color = tahun, size=tahun))+
  scale_color_brewer()+
  scale_x_discrete()+
  scale_y_continuous()

Pada layer scale ini, kita bisa berkreasi untuk memberikan penekanan pada atribut tersebut agar lebih dominan.

Penekanan pada linetype, warna dan shape

df3 %>% 
  ggplot(aes(x=bulan, y=penumpang))+
  geom_line(data = . %>% mutate(max= tahun == 1960), aes(linetype = max, group = tahun))+
  geom_point(data = . %>% mutate(max= tahun == 1960), aes(color = max, shape = max), size = 3.5)+
  scale_linetype_manual(breaks = c(F,T),
                        values = c("blank","solid"),
                        labels = c("< 1960","1960"))+
  scale_color_manual(breaks = c(F,T),
                     values = c("lightblue","darkred"),
                     labels = c("< 1960","1960"))+
  scale_shape_manual(breaks = c(F,T),
                     values = c(1,17),
                     labels = c("< 1960","1960"))+
  labs(color = "Tahun", shape = "Tahun", linetype = "Tahun")

HASIL PLOT

MACAM-MACAM GRAFIK PADA GGPLOT

Setelah aesthetic sudah ditentukan, maka selanjutnya adalah pemilihan model grafik yang tepat. Dalam pemilihan ini perlu sekali diperhatikan data struktur yang membentuknya, karena ini akan sangat terkait dengan model grafik yang akan dibuat. Berikut adalah beberapa model dasar grafik yang bisa dipakai dalam memvisualisasikan data.

BARPLOT

Sering disebut dengan grafik batang

df2 %>% 
  pivot_longer(cols = -tahun) %>% 
  select(tahun, bulan = name, penumpang = value) %>% 
  mutate(bulan = factor(bulan, 
  levels = c("Jan", "Feb", "Mar", "Apr", "May", "Jun", 
             "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"))) %>% 
  ggplot(aes(x=bulan, y=penumpang, fill = tahun))+
  geom_col(position = "dodge")
  

LINE PLOT

Grafik ini cocok dipakai bila parameter acuannya dalam bentuk waktu

df3 %>% 
  group_by(tahun) %>% 
  mutate(total = cumsum(penumpang)) %>%
  ggplot(aes(x=bulan, y=total, group = tahun))+
  geom_line(aes(color = tahun), linewidth = 1)+
  scale_y_continuous(transform = "log10")+
  scale_color_brewer(palette = "Paired")+
  ylab("Kumulatif Jumlah Penumpang")
  

HEATMAP

Untuk pengamatan yang singkat dan tidak mendetail, umumnya disajikan grafik dalam bentuk heatmap

df3 %>% 
  ggplot(aes(x=bulan, y=tahun, fill = penumpang))+
  geom_tile()+
  scale_fill_gradient(low = "lightblue", high = "darkblue")

STEP PLOT

Menggambarkan perubahan parameter terhadap hasil sebelumnya sehingga mudah dalam mengamati pergerakan nilainya.

df3 %>% 
  filter(tahun %in% c(1949,1960, 1954)) %>% 
  ggplot(aes(x=bulan, y=penumpang, group = tahun, color = tahun))+
  geom_step(direction = "vh", linewidth = 1)+
  ylab("Jumlah Penumpang")

AESTHETIC ATRIBUTES

Aesthetic adalah atribut pada grafik yang merepresentasikan sebuah data menjadi sesuatu yang dapat diukur/dibandingkan (quantifiable). Beberapa cakupan aesthetic pada ggplot sebagai berikut:

aestetik

df2 %>% 
  pivot_longer(cols = -tahun) %>% 
  select(tahun, bulan = name, penumpang = value) %>% 
  mutate(bulan = factor(bulan, levels = c("Jan", "Feb", "Mar", "Apr", "May", "Jun", 
                                          "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"))) %>% 
  ggplot(aes(x=bulan, y=penumpang, fill = tahun))+
  geom_col(position = "dodge")

datashape <- df2 %>% 
  pivot_longer(cols = -tahun) %>% 
  select(tahun, bulan = name, penumpang = value) %>% 
  mutate(bulan = factor(bulan, levels = c("Jan", "Feb", "Mar", "Apr", "May", "Jun", 
                                          "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"))) %>%
  filter(bulan %in% c("Feb","Jul"))


df2 %>% 
  pivot_longer(cols = -tahun) %>% 
  select(tahun, bulan = name, penumpang = value) %>% 
  mutate(bulan = factor(bulan, levels = c("Jan", "Feb", "Mar", "Apr", "May", "Jun", 
                                          "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"))) %>% 
  ggplot(aes(x=bulan, y=penumpang, group=tahun))+
  geom_line(color = "grey70")+
  geom_point(data = datashape, aes(fill = tahun, shape = bulan, color=bulan), size = 5)+
  geom_text(data = datashape %>% filter(bulan == "Jul"), aes(x=bulan, label = tahun), 
            nudge_x = 0.7, size = 3)+
  guides(fill = FALSE)

GRAFIK RANCANGAN